10 Z$=CHR$(0): B$=CHR$(2):LN$="[155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
15 POKE53280,0:POKE53281,0:GOSUB20:GOTO30
20 PRINT "[147]"LN$:PRINT"[159]  CHANGE DISK DEVICE NUMBER":PRINTLN$:RETURN
30 PRINT " IF  ALL [146] DISK UNITS ARE STILL"
40 PRINT " DEVICE NR 8, THEN POWER-OFF ALL"
50 PRINT " BUT THE FIRST UNIT TO BE CHANGED."
60 INPUT " [155] OLD [146] DEVICE NR (8-15): ? 8 [157][157][157][157]";F
70 IF F<8 OR F>15 THEN PRINT "[145][145][145]": GOTO 60
80 INPUT " [155] NEW [146] DEVICE NR (8-15): ? 9 [157][157][157][157]";T
90 IF T<8 OR T>15 THEN PRINT "[145][145][145]": GOTO 80
100 CLOSE 1:OPEN 1,F,15: IF ST THEN 240
110 PRINT#1,"M-R"CHR$(255)CHR$(255)
120 GOSUB 220: GOSUB 270
130 PRINT "[155] UNIT-TYPE/DOS VERS: ";A$
135 IFM=666THEN PRINT#1,"U0>"+CHR$(T):GOTO150
140 PRINT#1,"M-W"CHR$(M)Z$B$CHR$(T+32)CHR$(T+64)
150 IF ST THEN 240
160 PRINT "[155] DEVICE";F;"[155]CHANGED TO DEVICE";T
170 INPUT "[155] CHANGE MORE UNITS (Y/N): ? N[157][157][157]";C$
180 IF C$="N" THEN 260
190 IF C$<>"Y" THEN PRINT "[145][145][145]": GOTO 170
200 PRINT "[147]":GOSUB20:PRINT"[155] OK, POWER-ON NEXT UNIT TO CHANGE"
210 GOTO 60
220 GET#1,C$: C=ASC(C$+Z$)
230 IF ST=0 THEN RETURN
240 PRINT "[155] DEVICE ERROR ON";F: GOTO 260
250 PRINT "[155] UNKNOWN DEVICE TYPE";F
260 CLOSE 1: END
270 IF C=198 THEN M=12: GOTO 350
280 IF C=255 THEN M=12: A$="D90XX / V3.0":GOSUB900
290 IF C=254 THEN M=119: A$="1571-1541/V3.0-2.6"
300 IF C=242 THEN M=12: A$="8050 / V2.5"
310 IF C=241 THEN M=12: A$="1551 / V2.6"
320 IF C=226 THEN M=50: A$="2040 / V1.2"
330 IF C=213 THEN M=12: A$="4040 / V2.1"
340 RETURN
350 PRINT#1,"M-R"CHR$(234)CHR$(16)
360 GOSUB 220: IF C>1 THEN 2700
370 IF C=0 THEN A$="4040 / V2.7":RETURN
380 PRINT#1,"M-R"CHR$(172)CHR$(16)
390 GOSUB 220: IF C<1 OR C>2 THEN 250
400 IF C=1 THEN A$="8050 / V2.7"
410 IF C=2 THEN A$="8250 / V2.7"
420 RETURN
900 PRINT#1,"M-R"CHR$(3)CHR$(164)CHR$(1):GET#1,A$:A$=A$+CHR$(0)
910 IFASC(A$)=0THENRETURN
920 IFA$="8"THENM=666
930 M=666:A$="1581 / V10":RETURN